home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpcmag.arc / SCRNSAV.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1986-05-20  |  1.2 KB  |  52 lines
  1. program ScrnSaveLoad ;
  2.    {from PcMagazine April 15, 1986 page 275.  Method of simulating the
  3.     BASICA Bsave and BLoad commands.
  4.     Requires:   Turbo Pascal v2.0 or higher  MS-PC DOS version only
  5.                 Color graphics screen
  6.    }
  7. type   Str255 = string[255];
  8.  
  9. var    Ch: char;
  10.        I : Integer;
  11.  
  12. {$I circle.prc}
  13.  
  14. procedure ScrnSave (FName: Str255; Length: Integer);
  15.  
  16.    var Buffer : Byte Absolute $B800:$0000;
  17.        FileVar: File;
  18.  
  19. Begin
  20.  
  21.       assign(filevar,fname);
  22.       rewrite(filevar);
  23.       blockwrite(filevar,buffer,length div 128);
  24.       close(filevar);
  25.  
  26. end; { procedure ScrnSave (FName: Str255; Length: Integer) }
  27.  
  28. procedure ScrnLoad (FName: Str255; Length: Integer);
  29.  
  30.    var Buffer : Byte absolute $B800:$0000;
  31.        FileVar: File;
  32.  
  33. begin
  34.  
  35.    assign(filevar,fname);
  36.    reset(filevar);
  37.    blockread(filevar,buffer,length div 128);
  38.    close(filevar);
  39.  
  40. end; { procedure ScrnLoad(Fname:Str255; Length:Integer) }
  41.  
  42. begin  {main}
  43.    graphcolormode;
  44.    for i:=19 downto 1 do
  45.       circle(160,100,5*i,1+i mod 3);
  46.    scrnsave ('screen.dat',16000);
  47.    repeat until keypressed;  read(kbd,ch);
  48.    graphcolormode;
  49.    scrnload('screen.dat',16000);
  50.    repeat until keypressed; read(kbd,ch);
  51.    textmode (c80);
  52. end.